;; import lists/insertion-sort.scm files/words.scm files/count.scm

(define file "data/alice-in-wonderland.txt")

(define main
  (for-each write-line
	    (sort-by (comparing < cdr)
		     (with-input-from-file file count-words))))
